home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
COMPNENT
/
ISAMEXPT
/
ISAMSUCH.DFM
/
ISAMSUCH.txt
Wrap
Text File
|
1996-04-04
|
2KB
|
126 lines
object SuchDlg: TSuchDlg
Left = 156
Top = 96
ActiveControl = Edit1
BorderStyle = bsDialog
Caption = 'Suchen'
ClientHeight = 255
ClientWidth = 317
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
PixelsPerInch = 96
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
TextHeight = 13
object Bevel1: TBevel
Left = 12
Top = 8
Width = 300
Height = 193
Shape = bsFrame
IsControl = True
end
object Label1: TLabel
Left = 28
Top = 52
Width = 66
Height = 13
Caption = 'Suchbegriff'
end
object Label2: TLabel
Left = 28
Top = 24
Width = 55
Height = 13
Caption = 'Schl�ssel'
end
object OKBtn: TBitBtn
Left = 64
Top = 212
Width = 77
Height = 27
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Margin = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 188
Top = 212
Width = 77
Height = 27
TabOrder = 1
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object Edit1: TEdit
Left = 108
Top = 48
Width = 197
Height = 21
CharCase = ecUpperCase
TabOrder = 2
OnChange = Edit1Change
end
object IsamBrowser1: TIsamBrowser
Left = 24
Top = 80
Width = 281
Height = 113
Color = clSilver
OnBuildRow = IsamBrowser1BuildRow
OnDblClick = OKBtnClick
ParentColor = False
TabOrder = 3
Table = IsamTable1
KeySection = 0
SeparatorChar = '^'
JustLeftChar = '�'
JustRightChar = '�'
JustCenterChar = '�'
AllowIncSS = False
IncSSColor = clRed
IncSSTxtColor = clWhite
end
object ComboBox1: TComboBox
Left = 108
Top = 20
Width = 197
Height = 21
ItemHeight = 13
TabOrder = 4
OnChange = ComboBox1Change
end
object IsamTable1: TIsamTable
BrowserName = 'IsamBrowser1'
MyUnitName = 'E:\DELPHI\WNTV\T1.PAS'
IsamKeyProc.Strings = (
'Function KeyProc(Var Daten; KeyNr:Word): IsamKeyStr;'
'var s : String;'
'begin'
' s:= '#39#39';'
' with (Daten) do begin'
' case KeyNr of'
' 1 : S:= '#39#39';'
' End;'
' end;'
' KeyProc:= s;'
'end;'
'')
IsamRecord.Strings = (
'Type'
' = Record'
' Dummy : Longint;'
'end;')
Left = 20
Top = 212
end
end